home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / emacs16d.zip / _TRANSPO.MIN < prev    next >
Text File  |  1991-08-11  |  2KB  |  107 lines
  1.  
  2.  
  3.  
  4. Name:F:transpose-chars
  5. Transpose the character before point with the character after point,
  6. respecting a numerical argument.
  7. [*]    
  8. #(==,arg1,0,(
  9.     #(Ftranspose-chars.mark)
  10. ),(
  11.     #(Floop,##(Ftranspose-chars.#(Fsignum,(arg1),forward,backward)),
  12.         #(Fmodulus,(arg1)))
  13. ))
  14. [*]
  15.  
  16.  
  17. Name:F:transpose-lines
  18. Transpose the current line with the next line,
  19. respecting a numerical argument.
  20. [*]    
  21. #(==,arg1,0,(
  22.     #(Ftranspose-lines.mark)
  23. ),(
  24.     #(Floop,##(Ftranspose-lines.#(Fsignum,(arg1),forward,backward)),
  25.         #(Fmodulus,(arg1)))
  26. ))
  27. [*]
  28.  
  29.  
  30. Name:F:transpose-words
  31. Transpose the current word with the next word,
  32. respecting a numerical argument.
  33. [*]    
  34. #(==,arg1,0,(
  35.     #(Ftranspose-words.mark)
  36. ),(
  37.     #(Floop,##(Ftranspose-words.#(Fsignum,(arg1),forward,backward)),
  38.         #(Fmodulus,(arg1)))
  39. ))
  40. [*]
  41.  
  42.  
  43. Name:Ftranspose-chars.backward
  44. Transpose the character before point with the character before it.
  45. [*]#(sp,<)
  46. #(is,##(rm,<)#(dm,<)#(sp,>))
  47. #(sp,<)
  48. [*]
  49.  
  50.  
  51. Name:Ftranspose-chars.forward
  52. Transpose the character before point with the character after point.
  53. [*]#(==,##(rc,$),0,(
  54.     #(is,##(rm,<)#(dm,<)#(sp,<))
  55.     #(sp,>)
  56. ),(
  57.     #(is,##(rm,<)#(dm,<)#(sp,>))
  58. ))[*]
  59.  
  60.  
  61. Name:Ftranspose-chars.mark
  62. Transpose the character before point with the character before mark.
  63. BUG: mark is moved.
  64. [*]#(is,##(rm,<)#(dm,<)##(rm,#(Fmark))#(dm,#(Fmark))##(rm,<)#(dm,<))[*]
  65.  
  66.  
  67. Name:Ftranspose-lines.backward
  68. Transpose the current line with the previous line.
  69. [*]#(sp,^)
  70. #(is,##(rm,$)#(dm,$)#(dm,>)#(sp,<^)(
  71. ))
  72. #(sp,<^)
  73. [*]
  74.  
  75.  
  76. Name:Ftranspose-lines.forward
  77. Transpose the current line with the next line.
  78. [*]#(sp,^)
  79. #(is,(
  80. )##(rm,$)#(dm,$)#(dm,>)#(sp,$))
  81. #(sp,^)
  82. [*]
  83.  
  84.  
  85. Name:Ftranspose-lines.mark
  86. Transpose the current line with the one containing mark.
  87. [*]#(bl)#(an,Not implemented yet!)[*]
  88.  
  89.  
  90. Name:Ftranspose-words.backward
  91. Transpose the current word with the previous word.
  92. [*]#(sp,-{)
  93. #(is,##(rm,-)#(dm,-)##(rm,{)#(dm,{)#(sp,}))
  94. #(sp,{-)
  95. [*]
  96.  
  97.  
  98. Name:Ftranspose-words.forward
  99. Transpose the current word with the next word.
  100. [*]#(sp,}+)
  101. #(is,##(rm,-)#(dm,-)##(rm,{)#(dm,{)#(sp,}))
  102. [*]
  103.  
  104.  
  105. Name:Ftranspose-words.mark
  106. Transpose the current word with the one containing mark.
  107. [*]#(bl)#(an,Not implemented yet!)[*]